Исходный текст

Option Explicit

'==============================================================================
' Интеграция с MechaniCS
' Запускает MechaniCS и открывает в нем документ
'==============================================================================

Dim FileDialog, FName, MechApp, RetVal

' Открыть диалог выбора файла 
Set FileDialog = ThisApplication.Dialogs.FileDlg
FileDialog.Filter = "Все файлы *.*|*.*||"    
RetVal = FileDialog.Show
FName = FileDialog.FileName

' Запуск MechaniCS

Set MechApp = ThisApplication.Utility.StartMechaniCS
MechApp.OpenDocument(FName)     'открыть выбранный файл
'==============================================================================